home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Neurons / all-in next >
Text File  |  1998-10-23  |  864b  |  26 lines
  1. Finding Transpositions
  2.  
  3. all-in allows the neuron  to  find  a  pattern  in  all  of  its  transpose positions.  all-in  is  activated  by  giving the in-slot, pattern and from where the transpose levels begin and end (from 0 to 3 in the example).  The position  value  is given as usual. This neuron finds patterns (a b a) (b c b) (c d c) from the input pattern.
  4.  
  5. (def-neuron test-pattern5
  6.   (all-in 1 '(a b a) 0 3 0) 'x
  7.   (otherwise '=)
  8. )
  9.  
  10. (run-neuron 'test-pattern5
  11.             '(a b a b c b c d c))
  12. --> (x = = x = = x = =)
  13.  
  14. The following finds the same patterns that exist in shifted form in both the in 1 and in 2 patterns.
  15.  
  16. (def-neuron test-pattern6
  17.   (and (all-in 1 '(a b a) 0 3 0)
  18.        (all-in 2 '(a b a) 0 3 -1)) 'x
  19.   (otherwise '=)
  20. )
  21.  
  22. (run-neuron 'test-pattern6
  23.             '(a b a b c b c d c)
  24.             '(b a b c b c d c a))
  25. --> (= = = x = = x = =)
  26.